# clean all results

files <- list.files("output", recursive = TRUE)

if (length(files) > 1) {
  for (i in 1:length(files)) {
    if (is.na(files[i])) {
      break
    }
    
    if (endsWith(files[i], ".txt") | endsWith(files[i], ".png")) {
      if (file.exists(sprintf("output/%s", files[i]))) {
        file.remove(sprintf("output/%s", files[i]))
      }
    }
  }
}

rm(list = ls(all.names=TRUE))